

#------------------------------------------------------------------------------ 
# Study 1 Complier-Reporter Means and Counts
#------------------------------------------------------------------------------ 
tableS2 <- data.frame(Complier_Reporter = rep(NA, 12),
                      Complier_Nonreporter = rep(NA, 12),
                      Noncomplier_Reporter = rep(NA, 12),
                      Noncomplier_Nonreporter = rep(NA, 12),
                      F = rep(NA, 12),
                      P = rep(NA, 12))
tableS2[ 1: 2, ] <- ComplierReporter('path.to.citizenship.followup', 
                                     'path.to.citizenship.baseline.01', d1)
tableS2[ 3: 4, ] <- ComplierReporter('legal.immigration.followup', 
                                     'legal.immigration.baseline.01', d1)
tableS2[ 5: 6, ] <- ComplierReporter('trust.followup', 'trust.baseline.01', d1)
tableS2[ 7: 8, ] <- ComplierReporter('approval.followup', 
                                     'approval.baseline.01', d1)
tableS2[ 9:10, ] <- ComplierReporter('vote.followup', 'vote.baseline.01', d1)
tableS2[11:12, ] <- ComplierReporter('vote.november', 'vote.baseline.01', d1)

#------------------------------------------------------------------------------ 
# Study 2 Complier-Reporter Means and Counts
#------------------------------------------------------------------------------ 
tableS7 <- data.frame(Complier_Reporter = rep(NA, 12),
                      Complier_Nonreporter = rep(NA, 12),
                      Noncomplier_Reporter = rep(NA, 12),
                      Noncomplier_Nonreporter = rep(NA, 12),
                      F = rep(NA, 12),
                      P = rep(NA, 12))
tableS7[ 1: 2, ] <- ComplierReporter('waterboarding.followup', 
                                      'torture.baseline.01', d2)
tableS7[ 3: 4, ] <- ComplierReporter('guantanamo.followup', 
                                      'torture.baseline.01', d2)
tableS7[ 5: 6, ] <- ComplierReporter('trust.followup', 'trust.baseline.01', d2)
tableS7[ 7: 8, ] <- ComplierReporter('approval.followup', 
                                      'approval.baseline.01', d2)
tableS7[ 9:10, ] <- ComplierReporter('vote.followup', 'vote.baseline.01', d2)
tableS7[11:12, ] <- ComplierReporter('vote.november', 'vote.baseline.01', d2)
